1 A$="A206A0008414A9A08515C03F900AA515C9BFD004CAD0EB60B114C93F90080A0A0A396A4A"
2 FORI=1TO44:POKE#3FF+I,VAL("#"+MID$(A$+"9114C8D0E2E615D0DE",I*2-1,2)):NEXT
3 '  Routine relogeable permettant le decalage de l'ecran HIRES
4 '  vers la gauche jusqu'a effacement (en 6 fois)
5 '  Faire CALL#400